home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d15
/
jpl.arc
/
MATH.JPL
< prev
next >
Wrap
Text File
|
1990-07-05
|
479b
|
25 lines
{ JPL Executor MATH File }
{ Copyright (C) 1988,89 Logiciels JPsoft Enr. }
DefInt ( _VARIABLE )
DefInt ( _TEST )
#VARIABLE = 2
#TEST = 10
Add ( _VARIABLE , 2 , #TEST , 6)
Write ( "Add = " , #VARIABLE )
Sub ( _VARIABLE , 5 )
MoveTo ( 0 , 30 )
Write ( "Sub = " , #VARIABLE )
Mul ( _VARIABLE , 2 )
MoveTo ( 0 , 60 )
Write ( "Mul = " , #VARIABLE )
Div ( _VARIABLE , 10 , 3)
MoveTo ( 0 , 90 )
Write ( "Div = ",#VARIABLE )
End()